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PPP PPP LLL II] dd TTT LLL 
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$Schar = pll runtime character routines 
002/ 3 Edit CGN1003 
: Edit WHM1002 


MARARARALAAALALALALALA EASES LAE E EASE EEE RRR A RARE EAR RR SESE RRR REESE RE REE ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
LL RIGHTS RESERVED. 


A 1G 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cor tee 
0 He ety NCE WITH T F 

$s 


® 
*® ® 
aE 3 
*® + 
00 ;* : 
00 ;* * 
00 ;* * 
4 ;* ON A CE wIT T SUCH LICENSE D WITH THE * 
;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 ;® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
O60 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
500 ;* TRANSFERRED. * 
*® ® 
000 ;* pe gh rep Fs IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8008 CORPORATION. * 
® & 
0000 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. © 
0000 : : 
ob 
444 RAHAT AATAAAAARARAAAAAAAARAAARAEARARAARAEAAAEARAERAAAEAREARAAAAAAEEEE 
$090 
4 facility: 
$009 VAX/VMS PL1 runtime Library. 
0000 
000 abstract: 


This module contains runtime routines for character built-in functions. 
author: r. heinen 26-feb-1979 
Modifications: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 


1-003 Add the pli$search routine to provide runtime support for 
the PL/I search builtin function. 


Pe Se Se Se Se Ge Se Ge Ge Ge Se Ge Ge Se Se Se Ge Se Se Se Se Se Se Se Se Be Ge Se Ge Se Ge Se Ge Se Ge Se Ge Se Ge Se Se Se Se Se Se Se 
z 


SSSsSssssssss. 
SOooooooooosoo 


; external definitions 


$defdat 3; define data types 
: local data 


oooo 
CoOooco°coeo 
CoOooco°coo 
Oooo 
MUNDI BB BP EEE BWW inonononononononononn 2 2 
NOU EWR @OODONOAUE WR OOD NAU EWN $0 ODNAUEWIN (OOO NOU LS WH OOONOUS Wr 


SOCSSOSSOSOSOOOSOOSSO 
SSSSSSSSSSSSSSSSS 


ooooo 
Cooooo 
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PLISCHAR 
S005 routines 6-S PLIRTL.SRCIPLIC 


6¢ -sbttl subroutines 
64 ; set_opnd1 = setup operand one 
66 ; functional description: 
0 oe : This routine interprets operand 1 and it's dope vector and returns 
0 $ : the information. 
80 4 inputs: 
09 7 ; common stack frame 
20 r > outputs: 
000 77: r3 = size of operand 
44 4 3 r4 = address oF the data 
$009 0 set opnd1 
50 08 AC D0 0000 1 movl 8(ap),r0 ; address dope vector 
54 04 AC DO 0004 ¢ mov 4(ap),r4 ; address string 
80 OA 861 Bee cmpw #dat_k_char,(r0)+ ; character type? 
06 13 4 beql 10$ : if eql then character 
53 B4 45 it) 82 a (r4)4+,r3 3; get size and address string 
rs 
53 «660 ? 0011 87 10$: movzwl (r0),r3 3 get size and address data 
05 0014 88 rsb 
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1 90 ;++ 
; 4 : set_opnd2 = setup operand two 
4 $8 : functional description: 
01 95 : This routine interprets operand 2 and it's dope vector and returns 
a 38 3 the information. 
1 98 : inputs: 
Bie 99 ; 
} 199 3 common stack frame 
61 108 : outputs: 
001 103 ; 
001 104 ; r5 = size of operand 
Bale 105 ; r6 = address of the data 
01 106 ;-- 
0015 107 set_opnd2: 
50 10 AC 00 0015 108 movl 16(ap),r0 ; address dope vector 
56 OC AC DO 0019 #4109 mov l 12(ap),r6 ; address string 
80 OA B81 OO1D 110 cmpw #dat_k_char,(r0)+ ; character type? 
04 13 0020 111 beql $ : if eql then character | 
55 86 as bp € Ag aoveut (r6)+,r5 ; get size and address string 
rs x 
55 60 g? 0026 114 108: movzwl (r0),r5 ; get size and address data 
05 0029 115 rsb 
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MOP>nNVTUM SYS > rr rrrrrrrrrrrrrr>y 
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SOOCCOCCOOCOOCOCOCOOCOOooOoOooO: 
a kk a tk a 


OWOw--@DoV7 
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s++ 

; set_opnd3 = setup operand three 


functional description: 


; This routine interprets operand 3 and it's dope vector and returns 
; the information. 


; inputs: 
common stack frame 
; outputs: 


r7 = size of operand 
r&8 = address of the data 
set_opnd3: 
movl $3(ap} «rg ; address dope vector 
mov | O(ap),r ; address string 
cmpw #dat_k_char,(r0)+ ; character type? 
beql 0$ ; if eql then character 
a (r8)+,r7 3 get size and address string 
rs 


10$: Sa (r0),r7 ; get size and address data 
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- p 
pliSmovtranchar = move translated 66-SEP-19 PLIRTL.SRCJPLICHAR.MAR; 1 gts (8) 


— 
™ 
wm 


+ -sbttl pli$movtranchar - move translated 
; pliSmovtranchar = move translated characters 
; functional description: 


; This routine augments the in-line code for the translate bif. 
; The pli translate bif is more functional than the movtc instruction. 


OOCCoococcoo 


F 
F 146 ; 
F yap 
F 108 $ 
F 149; 
F 13) 3 
y SS) @ 
f 138 | 
4 : 13 : string! = translate(string2,string3,string4); 
8 : 138 ; (two operand translate bifs are done by inline code) 
OO3F 158: 
003 133 3 stringl(i) = substr(string3, index(string4,string2(i)) 
Hi 19) : inputs: 
pee 188 : rl = address to return string of size 4(ap) 
SO8E 188 ; O(ap) = 6 
OO3F 166: 4(ap) = address of source 
OO3F 167; 8(ap) = address of source dope 
OO3F 168; 12(ap) = address of the translate table 
OO3F 169 ; 16(ap) = address of translate table dope 
QOO3F 170; 20(ap) = address of the translate string 
it 14 3 24(ap) = address of the translate string dope 
Se | cvtmee 
00O3F 175: result string is filled 
aE 
O1FC OO3F 178° -entry pli$movtranchar,*m<r2,r3,r4,r5,r6,r7,r8> 
52. 51 pdO0 0041 £179 mov l ri, ; save target address 
FFB9 30 0044 #180 bsbw set_opnd1 3 setup cperand 1 
FFCB 30 0047 # 181 bsbw set_opnd 3 setup operand 
FFDR 30 004A 136 bsbw set_opnd 3; setup operand 
5 D7? -004D 183 10S: decl r3 ; count string 
19° OO4F 184 blss 30$ : br if done 
68 57 4 3A 0051 185 locc (r4)+,r7, (r8) : look for character in table 
14 i 0055 186 beql 208 3; if eql then not foun 
50 7 28 c Oe Hs 14 oy Bonz -r0 : get oftest in table 
W r : in range? 
3 1F 08 189 blssu ; if gtra then insert fill 
82 0 90 B96 190 movb #*a/ /,(r2)+ 3; insert character in output 
—E8 11 006 191 brb 3 continue 
82 + 79 93 136 15$: nove (r6)Cr0),(r2)+ 3 unset in output 
r 3 continue 
82 FFAS 90 dos 194 20$: movb =1(r4),(r2)+ ; insert source string char 
DC 11 OO6F 195 brb 10$ 3 continue 
04 0071 196 30$: ret 
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1 Sb0S pliSveri ty - verify built-in function aes 94: 6:2 PLIRTL.S RCIP LICHAR.MAR; 1 . 
4 138 a -sbttl pli$verify - verify built-in function 
f a} 3 pli$verify - pl1 verify built-in function 
007 § :; functional description: 
$7 04 ; This routine performs the verfiy built-in function. 
007 88 : fixbin = verify(string1,string2); 
007 08 ; fixbin = 0 if for each stringl(i), stringi(i) is in string2. 
Bee % : fixbin = i for the lowest i such that stringl(i) is not in string2. 
007 11 ; inputs: 
007 \§ : 
007 13; O(ap) = 
007 14; 4(ap) = source 1 address 
007 215 ; 8(ap) = address of the dope for source 1 
007 51$ : 12(ap) = address of source 2 
007 73: 16(ap) = address of the dope for source 2 
007 218 ; 
007 $33 3; outputs: 
bn55 20 ; 
007 221 3 r0 = index 
Bors $56 s=° 
007¢ 007 22 eentry fhe “m<r2,r3,r4,r5,r6> 
FF89 30 0074 $$ bsbw set_opnd 3; setup operand 1 
FF9B 30 0077 25 bsbw se*_opnd2 3 setup operand 2 

54 DD OO7A 226 pushl fr4 3; Save string starting address 

53 Dd? OO7C 227 108: decl r3 ; adjust count 

0B 19 OO7E 228 blss 20$ : if lss then all match, fixbin = 0 

66 55 84 3A 0080 229 Locc (r4)+,r5,(r6) : look for next character 
F6 ig 0084 $39 bneq 10$ : if found continue 
50 54 6E€ ¢3 0086 31 subl3 (sp),r4,r0 : calc index 
04 008A $36 ret 
50 04 0088 233 20$: clrl r0 3; return 
04 O008D 234 ret ; 


ee — —-+ 
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be plSsearch - search built-in function aes 09: 30:8 PLIRTL.SRCJPLICHAR.MAR; 1 * (b) 


| 
ope $ fe esbttl pli$search - search built-in function | 
; 8 ; pli$search = pli search built-in function 
MH | 
Be : i : functional description: | 
OORE tg ; This routine performs the search built-in function. | 
43 rf: ; fixbin = search(stringl,string2); 
OO8E rf ; fixbin = 0 if for each stringl(i), no stringl(i) is in string. 
43 rf 3 fixbin = i for the lowest i such tnat stringl(i) is in stringd. 
it 3 49 ; inputs: 
O8E 30 3 
OO8E 31 3 Olap) = 
OO8E 26 3 4(ap) = source 1 address 
OO8E 53; 8(ap) = address of the dope for source 1 
OO8E 54; 12(ap) = address of source 
3 $2? : 16(ap) = address of the dope for source 2 
O08E $25 3; outputs: 
QOO8E 258; 
OO8E 259 ; r0 = index 
OO8E 260 ;-- 
007¢ 44:43 261 entry pli$search,*m<r2,r3,r4,r5,r6> 
FF6D 30 009 $06 bsbw set_opnd1 ; setup operand 1 
FF7F 30 0093 26 bsbw set_opnd2 ; setup operand 2 
54 DD 0096 264 pushl r4 ; save string starting address 
53 Dd? 0098 265 108: decl r3 ; adjust count ee 
0B 19 OQO9A 266 blss 20$ : if lss then none match, fixbin = 0 
66 55 84 3A 009C 267 locc (r4)+,r5,(r6) ; look for next character 
F6 13 QOAO 268 beql 0$ : if not found continue 
50 54 6E€ C3 OOA2 269 subl3 (sp),r4,r0 ; cale index 
04 Q0A6 270 ret 
50 D4 OQOA7 271 20S: clrl r0 3 return 
04 O0A9 272 : 


Ne ee = ‘ . - cs 


13 
pi'Ssearch = search bullesin. Whee ton "E-SEp=1986 19:58:35 EPLIRTL.SReSPLYcHaRsmar:1 "29 8) 
OOAA 


274 .end 
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ae are table 6-SEP=1984 11:36:22 CPLIRTL.SRCJPLICHAR.MAR;1 (6) | 


NM—ONOWO 
> WMOorom ~ p> 
DBDwDwDwDDwD 
Qa 
— 
creoso 
er I? 


3 


BD APMAAABAMPMAR 1 NE DODOO 


SET-OPND 0 


| 
PSECT name Allocation PSECT No. Attributes 


00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
CL SHR EXE RD NOWRT NOVEC LONG 


- ABS. 
-PLISCODE QOOOO0DAA ¢ 170.) O1¢ 1.) PIC USR CON REL 


Fe 


C 
C 


cr 
es Iona Bona. Ions, na, Ions, on. ma) A) ee | 


0 
Pp 
P 
R 
Ss 
S 
Ss 
Ss 
Ss 
S 
Ss 
Ss 
Ss 


T 
TAB 


$wweeseeeeeoecweecccccoon 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 00: 00:00 .0¢ 00:00:08.2 
Command processing 78 00:00:00.4 00:00:03.95 
Pass 1 68 00:00:00.77 00:00:05.33 
Symbol table sort ! a Se Ls BF BO 80-0 
ass 2 5 0:00:00.51 0:00:03.6 
Symbol table output 1 8860: 00.95 BD Oe 0 «8S 
Psect synopsis output 1 00:00:00.0 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 210 00:00:01.83 00:00:15.79 


4513 bytes (9 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 335 non-local and 11 local symbols. 
4 source Lines were read in Pass 1, producing 16 object records in Pass 2. 
pages of virtual memory were used to define 2 macros. 


, eS 


Macro library name Macros defined 


“$52 3SDUAGE: gaat -OBJJPLIRTMAC.MLB; 1 5 
$255SDUA SYSLIBISTARLET.MLB; 2 
TOTALS (all Libraries) 2 


The working set Limit was 750 pag ges. 
32 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBACK/LIS=LIS$:PLICHAR/OBJ=OBJ$:PLICHAR MSRC$:PLICHAR/UPDATE=(ENHS:PLICHAR) +LIB$:PLIRTMAC/LIB 


PMENT CORPORATION = 
SAND PROPRIETARY 


